ZOR21.DAT[SCR,LCS]2 - www.SailDart.org

perm filename ZOR21.DAT[SCR,LCS]2 blob sn#199906 filedate 1976-02-03 generic text, type T, neo UTF8
 RCDFLG←-1; 
 
  < ZOR21.DAT  --  RANDOM NUMBER=     1
 PLAY;
 TOOT     0.000    0.170
;PRINT(P1);< TOOT    1
 TOOT     0.170    0.170
;PRINT(P1);< TOOT    2
 TOOT     0.340    0.160
;PRINT(P1);< TOOT    3
 TOOT     0.500    0.170
;PRINT(P1);< TOOT    4
 TOOT     0.670    0.170
;PRINT(P1);< TOOT    5
 TOOT     0.840    0.160
;PRINT(P1);< TOOT    6
 TOOT     1.000    0.170
;PRINT(P1);< TOOT    7
 TOOT     1.170    0.170
;PRINT(P1);< TOOT    8
 TOOT     1.340    0.160
;PRINT(P1);< TOOT    9
 TOOT     1.500    0.170
;PRINT(P1);< TOOT   10
 TOOT     1.670    0.170
;PRINT(P1);< TOOT   11
 TOOT     1.840    0.160
;PRINT(P1);< TOOT   12
 TOOT     2.000    0.170
;PRINT(P1);< TOOT   13
 TOOT     2.170    0.170
;PRINT(P1);< TOOT   14
 TOOT     2.340    0.160
;PRINT(P1);< TOOT   15
 TOOT     2.500    0.170
;PRINT(P1);< TOOT   16
 TOOT     2.670    0.170
;PRINT(P1);< TOOT   17
 TOOT     2.840    0.160
;PRINT(P1);< TOOT   18
 TOOT     3.000    0.170
;PRINT(P1);< TOOT   19
 TOOT     3.170    0.170
;PRINT(P1);< TOOT   20
 TOOT     3.340    0.160
;PRINT(P1);< TOOT   21
 TOOT     3.500    0.170
;PRINT(P1);< TOOT   22
 TOOT     3.670    0.170
;PRINT(P1);< TOOT   23
 TOOT     3.840    0.160
;PRINT(P1);< TOOT   24
 TOOT     4.000    0.170
;PRINT(P1);< TOOT   25
 TOOT     4.170    0.170
;PRINT(P1);< TOOT   26
 TOOT     4.340    0.160
;PRINT(P1);< TOOT   27
 TOOT     4.500    0.170
;PRINT(P1);< TOOT   28
 TOOT     4.670    0.170
;PRINT(P1);< TOOT   29
 TOOT     4.840    0.160
;PRINT(P1);< TOOT   30
 FINISH; < ZOR21.DAT